Form1
WallPeeper
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
XXXXX
Form1%
Picture2
ResizableChecked
	Resizable
MS Sans Serif
Timer1
Picture1
File2
*.bmp;*.ico;*.wmf;*.rle;*.dib
TileChecked
MS Sans Serif
Command1
Set as Wallpaper
Command2
Refresh List
ShowAllFiles
Show all usable files on C
MS Sans Serif
List1
File1
*.bmp;*.ico;*.wmf;*.rle;*.dib
Drive1
Label1
FileMenu
FileExit
E&xit
FileSep
	FileAbout
&About WallPeeper...
GetVersion
GetWindowsDirectory
SystemParametersInfo
wAction
wParam
lParamS
fWinIni6
SPI_SETDESKWALLPAPER
SPIF_UPDATEINIFILE]
SPIF_SENDWININICHANGE
Drive1_Change\
List1
	ListCount
ClearListBox
Form1
Check14
Caption
Drive19
Drivek
Value
False
Dir1K
Screen>
MousePointerL
FillList
Dir1_Change
File1
File1_Click
ShowPicture
FileName
	WallPaper@
	Form_Load.
WinVer/
WinVersion
Form2m
Visible
	ListIndex~
Focus7
Timer1p
Intervalk
FileExit_Click
Check1_Click
ListI
Enabled
SelectInFIleList
	ForeColor
Command2
Dirs"
DirNameh
FindItema
List1_Click
GetNameAndDirR
FName
DName
Form_Unload
Cancel
FileAbout_Click
Form3
List1_DblClick
List1DClick
File1_DblClick
File1DClick$
Timer1_Timer
GetActiveWindowe
Command1_Click
WinPath
BmpFile
Picture1
Image
Form_Resize
Command2_Click
Dir1_Click
Picture1_Click
Label1_Clickw
olddrive
Drive1_GotFocus
SavedDrive
Desktop
Pattern
WINDOWS
WALLVIEW
GridGranularity
IconSpacing
TileWallPaper
WriteProfileStringX
	lpAppNameq
	lpKeyName{
lpString*
Check2
WindowStateI
Check2_Clicku
Loading
GetProfileString
	lpDefault
lpReturnedStringY
nSize
lpRS 
SP1Pos
bgCol6
	BackColor
GetBackgroundColor
OldMousePointer
Check3_Clickc
Check3g
LBWidth
LBHeight
PositionOutline
Picture
	SourcePic
DestinationPic
dwRop
BorderStyle
ShowAllFiles_Click
ShowAllFiles
TileChecked_Click
TileChecked
ResizableChecked
ResizableChecked_Click
ScaleWidth
ScaleHeight
Width
Height
AutoSize
	scalemode
AutoRedraw
Picture2
Window
	OldMouseP
Kernel
kernel
KernelK
update Win.ini Const
update Win.ini and tell everyone
Command1_Click
WALLPEEP.BMP
[Desktop]=
Pattern = (None)
Wallpaper=C:\WINDOWS\WALLVIEW.BMP
GridGranularity = 0S
IconSpacing = 93
TileWallPaper = 1
Desktop
TileWallPaper
Desktop
TileWallPaper
Command2_Click
Dir1_Change
Dir1_Click
Drive1_Change
Error reading drive 
Drive1_GotFocus
File1_Click
File1_DblClick
FileAbout_Click
FileExit_Click
Form_Load
This program requires Windows 3.1.
Form_Resize
Command1.Top = Scaleheight - Command1.height - 6
Command1.Left = Scalewidth - Command1.width - 66
 minimized
Form_Unload
List1_Click
List1_DblClick
PositionOutline
ResizableChecked_Click
Form2.Enabled = Falsee
Form2.Enabled = True
SelectInFIleList
ShowAllFiles_Click
For I = 1 To List1.ListCount
   If T$ = List1.List(I - 1) Then.
 List1.ListIndex = I - 1
 Exit Fors
   End Ifo
Next I
TileChecked_Click
Timer1_Timer